home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1997
/
HAM Radio 1997.iso
/
vcls
/
formset
/
page2.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-04-08
|
2KB
|
74 lines
{
Saxman Software
Programmer Productivity Series
Delphi Custom Controls
Copyright 1995, Jim Standley
FormSet Demo, Page 2
}
unit Page2;
{--------------------------------} Interface {-------------------------------}
uses
Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type
TfPage2 = class(TForm)
Page2: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormHide(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fPage2: TfPage2;
{-----------------------------} Implementation {-----------------------------}
{$R *.DFM}
procedure TfPage2.FormCreate(Sender: TObject);
begin
ShowMessage('Page 2: Create');
end;
procedure TfPage2.FormActivate(Sender: TObject);
begin
ShowMessage('Page 2: Activate');
end;
procedure TfPage2.FormShow(Sender: TObject);
begin
ShowMessage('Page 2: Show');
end;
procedure TfPage2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
ShowMessage('Page 2: Close Query');
end;
procedure TfPage2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowMessage('Page 2: Close');
end;
procedure TfPage2.FormHide(Sender: TObject);
begin
ShowMessage('Page 2: Hide');
end;
procedure TfPage2.FormDestroy(Sender: TObject);
begin
ShowMessage('Page 2: Destroy');
end;
end.